10 CLEAR !NT=15 INPUT "TO PLAY?"A;PRINT "NAMES?" iBOSUB 570 
20 PRINT 1 INPUT "MAX SCORE?"Mi CLEAR {U»0JV«0H"0SI«0|60T0 80 

30 IF J=100J=700 

31 IF J=500J=350 

33 CX=-35jCY=0» PRINT #1 , J ? RETURN 
40 IF 8(P+20)>MG0T0 70 
50 RETURN 

60 FOR Q=31T0 36? ® (0) =0|NEXT OiRETURN 
70 CX=-25j CY=30j MU=77 ! PRINT "BINNER “ A, ;STQP 
80 FOR 0=21 TO 24;S(0)=0;NEXT 0 
90 FOR P=1T0 4i IF P>A P=1 

100 BC=1Q;FC=183;G0SUB 560;6QSUB 480;CX=-35; CY=0; PRINT ” 

110 K=GjL=0j6QSUB 60 

120 R=l; BOSUB 290; J=0|N=0jF0R D=0T0 4; BOSUB 300?NEXT D 
130 80SUB 60iR=R+l|IF RMBQSUB 580 
140 J=0;N=0;60SUB 290; D=0 
150 IF D<0D=0 

160 IF (D>4)+(L=0) BOSUB 620;60SUB 40;NEXT PfBOTO 90 
170 CX=-4?iCY=32-Dbi6; PRINT 

180 IF JX(P)=-lHU=64;SfD)=O;B0X -61,CY, 14, 14,2;60T0 200 
190 IF JXSPMGOTO 700 
200 BOSUB 60 

210 IF TR!P)D=9;B0T0 240 
220 IF JY(P)=0 S=l;60T0 180 
230 IF Q=06QTQ 180 

240 Q=0; CX=CX-6> PRINT " n ;D=B-JY IP) ; IF D<880T0 150 
250 FOR D=OTQ 4; IF 8<D)=06QSUB 300 
260 NEXT D 
270 BOTO 130 

280 FOR D=0T0 4; IF D=OGOSUB 300 

290 CX=-35iCY=-205 PRINT "ROLL", #1,R| RETURN 

300 X=-63 j Y=32-Dbl6; Z=RND (6);8(D)=Z 

310 BOX X,Y,14,14,1;HU=70+Z 

320 IF Z#Zc2b2B0X X,Y,2,2,2 

330 IF Z=6B0X X-4,Y,2,2,2;B0X X+4,Y,2,2,2 

340 IF ZMBQX X-4,Y+4,2,2,2;B0X X+4,Y-4,2,Z,2 

350 IF Z>3BQX X-4, Y-4, 2, 2, 2; BOX X+4, Y+4,2,2,2 

360 8(Z+30)=8(Z+30)+l;lF 8 !Z+30> =3J=ZblOO; BOSUB 30;8(Z+30>=0 

420 T=Z 

430 IF Z=1 T=T+99 

440 IF Z=5 T=T+45 

450 IF Z#1 IF Z#5T=0 

460 N=N+T ; CX=-30j CY=-35; PRINT #1,N 

470 RETURN 

480 0=10iD=l 

490 FOR U= (51+ !Pb4) -4) TO Pb4+50 

500 CY=39; CX=0; D=D+1 ; TV=8 !U> ; 0=0+7; NEXT U 

550 RETURN 

560 CY=39!CX=-15i PRINT "I ", 11, P,j RETURN 
570 FOR U=51T0 Ab4+50 

572 8(U)=KP 

573 V=V+1 

575 IF V=5TV=13 

576 IF V=9TV=13 

577 IF V=13TV=13 

578 TV=8(U) 

579 NEXT U! RETURN 

580 k=k+j+n;if J+N=0K=0 
590 L=L+K| IF L)K L=K 
600 IF K=0L=0 

610 CX=45;CY=39; PRINT #1,"=",L;RETURN 
620 8 iP+20) =8 (P+20) +L; IF 8 (P+20) <4998 (P+20) =0 
630 CX=30;CY=Pb 10-20; PRINT #l,”i”,#l,P,”=\8(P+20);RETURN 
700 D=5iCX=-35;CY=0;PRINT "aa”;BOX -49,0,6,70,2; IF TR(P)60T0 160 
710 GOTO 700 
>: RETURN 
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